FINISH
/CLEAR
/FILN, E43  
/TITLE, FEA OF CONNECTING ZONE OF SUPPORT OF EVAPERATOR
! ********* 趨*********
DCI=5000                              !Ͳھ
TC=40                                 !Ͳں
TCON=40                               !׶ηͷں
ALFA=30                               !׶ηͷ׶
LC=2500                               !Ͳ峤

*AFUN,DEG                             !Ƕȵλ趨
LCON=DCI/2/TAN(ALFA)                  !׶ηͷȫ׶
LRAT=0.5                              !ģ׶ηͷ߷򳤶ϵ
LCON=LCON*LRAT                        !ģ׶ηͷ߷򳤶

NS=4                                  !֧
H0=1500                               !ֱ֧װλ
DIS=DCI+TC                            !֧ˮƽװλ
TS=20                                 !֧塢
WS=500                                !
HS=1300                               !߶
BB=800                                !װ峤
W1=250                                !λ
PI=0.1                                !ѹֵ
GRA=9.81                              !ٶȣM/S2
DENSTELL=7850                         !ֲܶȣKG/M3
DENWATER=1000                         !ˮܶȣKG/M3
M1=58.1E3                             !أKG
HY1MAX=13                             !׶ηͷƽҺ߶
HY0MAX=15.0                           !Һ߶
PY1=HY1MAX*DENWATER*GRA/1E6           !׶ηͷƽҺѹ
PY0=HY0MAX*DENWATER*GRA/1E6           !Һѹ
SCON=(DCI/2*LRAT*2+TCON*COS(ALFA))*TCON	!ģ׶ηͷ/?
PCON=(PI+PY0)*(DCI/2*LRAT)**2/SCON/COS(ALFA)            !ģ׶ηͷƽغ
PCM1=M1*GRA/(3.1415927*((DCI+2*TCON)**2-DCI**2))        !Ͳغ
PC=PI*DCI**2/((DCI+2*TCON)**2-DCI**2)-PCM1              !Ͳƽغ
!****************ǰ***************************
/PREP7	
ET,1,45                               !嵥Ԫ
MP,EX,1,2E5                           !ϵĵģ
MP,NUXY,1,0.3                         !ϵĲɱ
!****************ģ***************************
K,1,0,0,0                             !תĹؼ
K,2,0,LC,0                            !תĹؼ
BLC4,DCI/2,0,TCON,-LCON               !׶ηͷĸ
LOCAL,11,1,DCI/2                      !ֲϵ
AGEN,2,1,,,,-ALFA,,,,1                !תĸõת׶ηͷ
BLC4,DCI/2,0,TCON,LC                  !Ͳ
NUMMRG,ALL, , , ,LOW                  !ϲͬ
KSEL,S,LOC,Y,-TCON,0                  !ѡͲͷؼ
*GET,K1,KP,,NUM,MIN                   !ȡؼ
KSEL,U,,,K1
*GET,K2,KP,,NUM,MIN
*GET,K3,KP,,NUM,MAX
KSEL,A,,,K1
A,K1,K2,K3                            !ɺ
ALLS                                  !ȫѡ
VROTAT,ALL,,,,,,1,2,360/2/NS          !Ͳ塢ͷ1/8ת
WPOFF,0,0,-BB/2                       !ƶ
BLC4,,-H0,DIS/2,HS,TS                 !ɽĸ
BLC4,DIS/2-W1,-H0,-TS,HS,BB/2         !ɸĸ
BLC4,,-H0,DIS/2,TS,BB/2               !ɵװĸ
VSEL,S,,,4,6                          !ѡ塢弰װĸ
VSBA,ALL,5                            !׶ηͷи塢弰װ
VDELE,7,,,1                           !ɾĸಿ
VDELE,10,,,1                          !ɾĸಿ
VDELE,11,,,1                          !ɾװĸಿ
WPOFF,DIS/2-WS                        !ƶ
WPROT,,,90                            !ת
VSBW,ALL                              !ٴиװ
VDELE,4,,,1                           !ٴɾಿ
VDELE,6,,,1                           !ٴɾװಿ
VPTN,ALL                              !塢弰װ廥
ALLS
!*****************************************
KWPAVE,23                             !ƽؼ23
WPROT,,,90                            !תƽ
VSBW,ALL                              !ùƽʷ
KWPAVE,19                             !ƽؼ19
VSBW,ALL                              !ùƽʷ 
WPROT,,90,                            !תƽ 
VSBW,ALL                              !ùƽʷ 
VPTN,ALL                              !廥
ALLS                                  !ȫѡ
LGLUE,ALL                             !ճϸ
LESIZE,36,,,3,,,,,                    !趨߷ֶ
LESIZE,55,,,3,,,,,                    !趨߷ֶ
LESIZE,45,,,3,,,,,                    !趨߷ֶ
ESIZE,40                              !趨ԪС
VSWEEP,ALL                            !ӳ仮
NUMMRG,ALL                            !ϲ
NUMCMP,ALL                            !ѹ
FINISH
!*******************************************
/SOLU
WPCSYS,-1,0                           !תԭʼϵ
ASEL,S,LOC,Z,0                        !ѡZ=0
DA,ALL,SYMM                           !ʩӶԳԼ
LOCAL,12,1,,,,,-90                    !ֲϵ
ASEL,S,LOC,Y,360/NS/2                 !ѡ1/8λý
DA,ALL,SYMM                           !ʩӶԳԼ
CSYS,0                                !ֱϵ
ASEL,S,LOC,Y,-H0                      !ѡ֧
ASEL,R,LOC,X,DIS/2-WS,DIS/2
DA,ALL,ALL                            !Լλ
ASEL,S,LOC,Y,LC                       !ѡͲ
SFA,ALL,1,PRES,-PC                    !ʩƽغ
ASEL,S,LOC,Y,-LCON*COS(ALFA)-TCON,-LCON*COS(ALFA)  !ѡ׶ηͷ
SFA,ALL,1,PRES,-PCON                  !ʩƽغ

ASEL,S,AREA,,83,87,4                  !ѡͲڱ
ASEL,A,AREA,,42,
SFA,ALL,1,PRES,PI                     !Ͳڱʩѹ
ASEL,S,AREA,,44,46,2,1                !ѡͷڱ
ASEL,A,AREA,,93,95,1
ASEL,A,AREA,,91
SFA,ALL,1,PRES,PI+PY1                 !׶ηͷڱʩѹҺѹ
ALLS
SOLVE                                 !
!*******************************************
/POST1
PLNSOL,S,INT,0,1                      !ʾӦͼ
FINI
